home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
64'er 1991 February
/
64er_Magazin_91-02_1991_Markt__Technik_de_Side_A.d64
/
fakult disk->prt
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2022-10-26
|
401b
|
18 lines
10 rem ********************************
20 rem * *
30 rem * ausgabe der fakultaeten *
40 rem * von diskette auf drucker *
50 rem * (w) by boris brandherm *
60 rem * *
70 rem ********************************
80 name$="fk"
90 open 1,8,2,name$+",s,r"
100 open 2,4
110 get #1,a$
120 c=st
130 print#2,a$;
140 if c=0 then 110
150 close 1
160 print#2,""
170 close 2